open(BUFF,"tt");
while($line = <BUFF>)
{
	@array = split(/\t/,$line);
	#print "$array[8]\t$array[9]\n";
	$l1 = $array[8].$array[9];
	$line1 = <BUFF>;
	$l2  = $array[8].$array[9];
	if($l1 eq $l2)
	{
		#print "success\n";
	}
	else
	{
		print "success\n";
	}
}
